home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Capital / install_cp < prev    next >
Text File  |  2001-01-01  |  18KB  |  609 lines
  1.  
  2. ; $VER: Capital Punishment HD Install V1.1 CD (Feb 02.98) ©1998 PXL
  3.  
  4.  
  5.  
  6. (set GameDir "CapitalPunishment")
  7.  
  8. (complete 0)
  9.  
  10. ;*********************************************************************
  11. ;       Text to display in english
  12.  
  13. (set #yes_eng   "YES")
  14. (set #no_eng    "NO")
  15.  
  16. (set #par_lock_eng
  17.         (cat
  18.                 "\n\n"
  19.                 "Do you wish to install the Parental Lock ?\n" 
  20.         )
  21. )
  22.  
  23. (set #par_lock_help_eng   "\n Please, consult Capital Punishment manual.\n")
  24.  
  25. (set #dest_dir_eng
  26.         (cat
  27.                 " Where would you like to create a \"Capital Punishment\""
  28.                 " drawer and install the game ?"
  29.         )
  30. )
  31.  
  32. (set #dest_dir_help_eng
  33.         (cat
  34.                 "The requested directory is the one where you keep your games.\n"
  35.                 "It is usually GAMES:, Work:Games, etc...\n"
  36.         )
  37. )
  38.  
  39. (set #hd_floppy_eng
  40.         (cat
  41.                 "Would you like to make a \"boot disk\" ?\n\n"
  42.                 "If you choose \"No\" you will still be able to create\n"
  43.                 "a boot disk at a later date by running MakeBootDisk\n program"
  44.                 " from \"CapitalPunishment\" directory.\n"
  45.         )
  46. )
  47.  
  48.  
  49. (set #hd_floppy_help_eng
  50.         (cat
  51.                 "\n\n"
  52.                 " Please consult Capital Punishment manual\n"
  53.         )
  54. )
  55.  
  56. (set #insert_disk_eng
  57.         (cat
  58.                 "\n Please insert a floppy disk into the drive DF0:\n"
  59.                 "\n WARNING: The disk will be formatted and all the data\n"
  60.                 " on it will be erased !\n"
  61.         )
  62. )
  63.  
  64. (set #formatting_eng     
  65.         (cat
  66.                 "\n The disk is now being formatted. Please wait...\n"
  67.                 "\n IMPORTANT NOTE: DO NOT REMOVE the disk from \n"
  68.                 " the drive until prompted\n\n"
  69.         )
  70. )
  71.  
  72. (set #remove_eng  "You can now remove the disk from DF0:\n")
  73.  
  74. (set #copying_eng       "Copying files... Please wait.\n")
  75.  
  76. (set #diskinst_eng      "Please insert CapitalPunishmentInstallDisk\n")
  77. (set #disk1_eng         "Please insert Capital Punishment disk 1\n")
  78. (set #disk2_eng         "Please insert Capital Punishment disk 2\n")
  79. (set #disk3_eng         "Please insert Capital Punishment disk 3\n")
  80. (set #disk4_eng         "Please insert Capital Punishment disk 4\n")
  81. (set #disk5_eng         "Please insert Capital Punishment disk 5\n")
  82. (set #disk6_eng         "Please insert Capital Punishment disk 6\n")
  83. (set #disk7_eng         "Please insert Capital Punishment disk 7\n")
  84.  
  85. (set #unpacking_eng     "Unpacking... Please wait...\n")
  86.  
  87. ;***********************************************************************
  88.  
  89. (set #yes_deu   "JA")
  90. (set #no_deu    "NEIN")
  91.  
  92.  
  93. (set #par_lock_deu
  94.         (cat
  95.                 "\n\n"
  96.                 "Möchten Sie die Kindersicherung installieren ?\n" 
  97.         )
  98. )
  99.  
  100. (set #par_lock_help_deu 
  101.               (cat
  102.                          "\n Hilfe: Bitte schlagen Sie in Ihrer\n"
  103.                          " Capital-Punishment-Anleitung nach.\n"
  104.               )
  105. )
  106.  
  107. (set #dest_dir_deu
  108.         (cat
  109.                 " In welchem Verzeichnis soll die Schublade \n"
  110.                 " \"Capital Punishment\" erzeugt werden ?"
  111.         )
  112. )
  113.  
  114. (set #dest_dir_help_deu
  115.         (cat
  116.                 "The requested directory is the one where you hold your games.\n"
  117.                 "It is usually GAMES:, Work:Games, etc...\n"
  118.         )
  119. )
  120.  
  121. (set #hd_floppy_deu
  122.         (cat
  123.                 " Wollen Sie eine Boot-Disk anlegen ?\n\n"
  124.                 "If you choose \"No\" you will still be able to create\n"
  125.                 "a boot disk at a later date by running MakeBootDisk\nprogram"
  126.                 "from \"CapitalPunishment\" directory.\n"
  127.         )
  128. )
  129.  
  130.  
  131. (set #hd_floppy_help_deu
  132.         (cat
  133.                 "\n\n"
  134.                 " Bitte schlagen Sie in Ihrer \n"
  135.                 " Capital-Punishment-Anleitung nach.\n"
  136.         )
  137. )
  138.  
  139. (set #insert_disk_deu
  140.         (cat
  141.                 "\n Please insert a floppy disk into the drive DF0:\n"
  142.                 "\n WARNING: the disk will be formatted and all the data\n"
  143.                 " on it will be erased!\n"
  144.         )
  145. )
  146.  
  147. (set #formatting_deu    
  148.         (cat
  149.                 "\n WICHTIGER HINWEIS: ENTFERNEN SIE NICHT die Diskette\n"
  150.                 " aus dem Laufwerk, bevor Sie dazu aufgefordert werden!\n\n"
  151.         )
  152. )
  153.  
  154. (set #remove_deu  "Sie koennen jetzt die Disk aus DF0: entfernen.\n")
  155.  
  156. (set #copying_deu       "Kopiere Daten... Bitte warten.\n")
  157.  
  158. (set #diskinst_deu      "Bitte legen Sie CapitalPunishmentInstallDisk\n")
  159. (set #disk1_deu         "Bitte legen Sie Capital Punishment Disk 1\n")
  160. (set #disk2_deu         "Bitte legen Sie Capital Punishment Disk 2\n")
  161. (set #disk3_deu         "Bitte legen Sie Capital Punishment Disk 3\n")
  162. (set #disk4_deu         "Bitte legen Sie Capital Punishment Disk 4\n")
  163. (set #disk5_deu         "Bitte legen Sie Capital Punishment Disk 5\n")
  164. (set #disk6_deu         "Bitte legen Sie Capital Punishment Disk 6\n")
  165. (set #disk7_deu         "Bitte legen Sie Capital Punishment Disk 7\n")
  166.  
  167. (set #unpacking_deu     "Unpacking... Please wait...\n")
  168.  
  169. ;************************************************************************
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178. ;    (copyfiles (source "CapitalPunishmentInstallDisk:delete")
  179. ;               (dest "ram:")
  180. ;               (NOGAUGE)
  181. ;    )
  182. ;
  183. ;    (copyfiles (source "CapitalPunishmentInstallDisk:format")
  184. ;               (dest "ram:")
  185. ;               (NOGAUGE)
  186. ;    )
  187. ;
  188. ;    (copyfiles (source "CapitalPunishmentInstallDisk:inst")
  189. ;               (dest "ram:")
  190. ;               (NOGAUGE)
  191. ;    )
  192. ;
  193. ;    (copyfiles (source "CapitalPunishmentInstallDisk:rename")
  194. ;               (dest "ram:")
  195. ;               (NOGAUGE)
  196. ;    )
  197. ;
  198. ;    (copyfiles (source "CapitalPunishmentInstallDisk:assign")
  199. ;               (dest "ram:")
  200. ;               (NOGAUGE)
  201. ;    )
  202.  
  203.  
  204.  
  205.  
  206.  
  207. ;*********** Language selection ****************************
  208. (set language
  209.                 (askchoice 
  210.                         (prompt "")
  211.                         (choices "English" "Deutsch")
  212.                         (help    @askchoice-help)
  213.                         (default 0)
  214.                 )
  215. )
  216.  
  217.  
  218. (if (= language 0)
  219.         (
  220.                 (set #yes              #yes_eng)
  221.                 (set #no               #no_eng)
  222.                 (set #dest_dir         #dest_dir_eng)
  223.                 (set #dest_dir_help    #dest_dir_help_eng)
  224.                 (set #hd_floppy        #hd_floppy_eng)
  225.                 (set #hd_floppy_help   #hd_floppy_help_eng)
  226.                 (set #insert_disk      #insert_disk_eng)
  227.                 (set #formatting       #formatting_eng)
  228.                 (set #par_lock         #par_lock_eng)
  229.                 (set #par_lock_help    #par_lock_help_eng)
  230.                 (set #remove           #remove_eng)
  231.                 (set #copying          #copying_eng)
  232.                 (set #diskinst         #diskinst_eng)
  233.                 (set #disk_1           #disk1_eng)
  234.                 (set #disk_2           #disk2_eng)
  235.                 (set #disk_3           #disk3_eng)
  236.                 (set #disk_4           #disk4_eng)
  237.                 (set #disk_5           #disk5_eng)
  238.                 (set #disk_6           #disk6_eng)
  239.                 (set #disk_7           #disk7_eng)
  240.                 (set #unpacking        #unpacking_eng)
  241.         )
  242. )
  243.  
  244. (if (= language 1)
  245.         (
  246.  
  247.                 (set #yes              #yes_deu)
  248.                 (set #no               #no_deu)
  249.                 (set #dest_dir         #dest_dir_deu)
  250.                 (set #dest_dir_help    #dest_dir_help_deu)
  251.                 (set #hd_floppy        #hd_floppy_deu)
  252.                 (set #hd_floppy_help   #hd_floppy_help_deu)
  253.                 (set #insert_disk      #insert_disk_deu)
  254.                 (set #formatting       #formatting_deu)
  255.                 (set #par_lock         #par_lock_deu)
  256.                 (set #par_lock_help    #par_lock_help_deu)
  257.                 (set #remove           #remove_deu)
  258.                 (set #copying          #copying_deu)
  259.                 (set #diskinst         #diskinst_deu)
  260.                 (set #disk_1           #disk1_deu)
  261.                 (set #disk_2           #disk2_deu)
  262.                 (set #disk_3           #disk3_deu)
  263.                 (set #disk_4           #disk4_deu)
  264.                 (set #disk_5           #disk5_deu)
  265.                 (set #disk_6           #disk6_deu)
  266.                 (set #disk_7           #disk7_deu)
  267.                 (set #unpacking        #unpacking_deu)
  268.         )
  269. )
  270.  
  271.  
  272.         (complete 0)
  273.  
  274.         (set lock1      (askchoice
  275.                                 (prompt #par_lock)
  276.                                 (help   #par_lock_help)
  277.                                 (choices #yes #no)
  278.                                 (default 1)
  279.                         )
  280.         )
  281.         
  282.         (complete 5)
  283.  
  284.  
  285.  
  286.         (set default-dest
  287.              (tackon (askdir 
  288.                         (prompt #dest_dir)
  289.                         (help   #dest_dir_help)
  290.                         (default @default-dest)
  291.                         (newpath)
  292.                      )
  293.                      GameDir
  294.              )
  295.         )
  296.  
  297.         (set @default-dest default-dest)
  298.  
  299.         (complete 15)
  300.  
  301.         (makedir @default-dest
  302.                     (infos)
  303.         )
  304.  
  305.  
  306.          (working #copying)
  307.  
  308.         (run ("Lhx/lha.exe x cp.lha \"%s/\"" @default-dest))
  309.  
  310.  
  311.  
  312.  
  313. ;         (askdisk (dest "CapitalPunishmentInstallDisk")
  314. ;                    (prompt #diskinst)
  315. ;                    (help   #diskinst)
  316. ;                    (assigns)
  317. ;         )
  318. ;
  319. ;         (copyfiles (source "CapitalPunishmentInstallDisk:format")
  320. ;               (dest default-dest)
  321. ;               (NOGAUGE)
  322. ;         )
  323. ;
  324. ;         (copyfiles (source "CapitalPunishmentInstallDisk:inst")
  325. ;               (dest default-dest)
  326. ;               (NOGAUGE)
  327. ;         )
  328. ;
  329. ;         (copyfiles (source "CapitalPunishmentInstallDisk:Installer")
  330. ;               (dest default-dest)
  331. ;               (NOGAUGE)
  332. ;         )
  333. ;
  334. ;
  335. ;         (working #copying)
  336. ;         (copyfiles
  337. ;                (source "CapitalPunishmentInstallDisk:Upgrade.lha")
  338. ;                (dest   default-dest)
  339. ;         )
  340. ;        
  341. ;        
  342. ;         (askdisk (dest "Punishment-disk1")
  343. ;                    (prompt #disk_1)
  344. ;                    (help   #disk_1)
  345. ;                    (assigns)
  346. ;         )
  347. ;
  348. ;
  349. ;         (working #copying)
  350. ;
  351. ;         (copyfiles (source "Punishment-disk1:Lha")
  352. ;               (dest "ram:")
  353. ;               (NOGAUGE)
  354. ;         )
  355. ;
  356. ;         (copyfiles (source "Punishment-disk1:l/lha.key")
  357. ;               (dest "ram:")
  358. ;               (NOGAUGE)
  359. ;         )
  360. ;
  361. ;         (run ("ram:assign L: remove")
  362. ;         )
  363. ;
  364. ;         (run ("ram:assign L: ram:")
  365. ;         )
  366. ;
  367. ;         (copyfiles
  368. ;                (source "Punishment-disk1:Capital.lha")
  369. ;                (dest   default-dest)
  370. ;         )
  371. ;
  372. ;         (complete 25)
  373. ;
  374. ;
  375. ;         (askdisk (dest "Punishment-disk2")
  376. ;                    (prompt #disk_2)
  377. ;                    (help   #disk_2)
  378. ;                    (assigns)
  379. ;         )
  380. ;
  381. ;         (working #copying)
  382. ;         (copyfiles
  383. ;                (source "Punishment-disk2:CapitalPunishment.lha")
  384. ;                (dest   default-dest)
  385. ;         )
  386. ;
  387. ;         (complete 35)
  388. ;
  389. ;
  390. ;
  391. ;         (askdisk (dest "Punishment-disk3")
  392. ;                    (prompt #disk_3)
  393. ;                    (help   #disk_3)
  394. ;                    (assigns)
  395. ;         )
  396. ;
  397. ;         (working #copying)
  398. ;         (copyfiles
  399. ;                (source "Punishment-disk3:CapitalPunishment.l01")
  400. ;                (dest   default-dest)
  401. ;         )
  402. ;
  403. ;         (complete 45)
  404. ;
  405. ;
  406. ;         (askdisk (dest "Punishment-disk4")
  407. ;                    (prompt #disk_4)
  408. ;                    (help   #disk_4)
  409. ;                    (assigns)
  410. ;         )
  411. ;
  412. ;         (working #copying)
  413. ;         (copyfiles
  414. ;                (source "Punishment-disk4:CapitalPunishment.l02")
  415. ;                (dest   default-dest)
  416. ;         )
  417. ;
  418. ;         (complete 55)
  419. ;
  420. ;
  421. ;         (askdisk (dest "Punishment-disk5")
  422. ;                    (prompt #disk_5)
  423. ;                    (help   #disk_5)
  424. ;                    (assigns)
  425. ;         )
  426. ;
  427. ;         (working #copying)
  428. ;         (copyfiles
  429. ;                (source "Punishment-disk5:CapitalPunishment.l03")
  430. ;                (dest   default-dest)
  431. ;         )
  432. ;
  433. ;         (complete 65)
  434. ;
  435. ;
  436. ;         (askdisk (dest "Punishment-disk6")
  437. ;                    (prompt #disk_6)
  438. ;                    (help   #disk_6)
  439. ;                    (assigns)
  440. ;         )
  441. ;
  442. ;         (working #copying)
  443. ;         (copyfiles
  444. ;                (source "Punishment-disk6:CapitalPunishment.l04")
  445. ;                (dest   default-dest)
  446. ;         )
  447. ;
  448. ;         (complete 75)
  449. ;
  450. ;
  451. ;
  452. ;         (askdisk (dest "Punishment-disk7")
  453. ;                    (prompt #disk_7)
  454. ;                    (help   #disk_7)
  455. ;                    (assigns)
  456. ;         )
  457. ;
  458. ;         (working #copying)
  459. ;
  460. ;         (copyfiles
  461. ;                (source "Punishment-disk7:CapitalPunishment.l05")
  462. ;                (dest   default-dest)
  463. ;         )
  464. ;
  465. ;         (copyfiles
  466. ;                (source "Punishment-disk7:More")
  467. ;                (dest   default-dest)
  468. ;         )
  469. ;
  470. ;         (complete 85)
  471. ;
  472. ;
  473. ;
  474. ;        (working #unpacking)
  475. ;
  476. ;         (run ("RAM:Lha x \"%s/Capital.lha\" \"%s/\"" default-dest default-dest)
  477. ;         )
  478. ;         
  479. ;        (set delfile ("\"%s/Capital.lha\"" default-dest))
  480. ;        (run ("RAM:delete %s" delfile))
  481. ;
  482. ;
  483. ;         (run ("RAM:Lha x -V \"%s/CapitalPunishment.lha\" \"%s/\"" default-dest default-dest)
  484. ;         )
  485. ;
  486. ;
  487. ;         (run ("RAM:Lha x -m \"%s/Upgrade.lha\" \"%s/\"" default-dest default-dest)
  488. ;         )
  489. ;
  490. ;
  491. ;         (complete 90)
  492. ;
  493. ;
  494. ;        (set delfile ("\"%s/Upgrade.lha\"" default-dest))
  495. ;        (run ("RAM:delete %s" delfile))
  496. ;        (set delfile ("\"%s/CapitalPunishment.lha\"" default-dest))
  497. ;        (run ("RAM:delete %s" delfile))
  498. ;        (set delfile ("\"%s/CapitalPunishment.l01\"" default-dest))
  499. ;        (run ("RAM:delete %s" delfile))
  500. ;        (set delfile ("\"%s/CapitalPunishment.l02\"" default-dest))
  501. ;        (run ("RAM:delete %s" delfile))
  502. ;        (set delfile ("\"%s/CapitalPunishment.l03\"" default-dest))
  503. ;        (run ("RAM:delete %s" delfile))
  504. ;        (set delfile ("\"%s/CapitalPunishment.l04\"" default-dest))
  505. ;        (run ("RAM:delete %s" delfile))
  506. ;        (set delfile ("\"%s/CapitalPunishment.l05\"" default-dest))
  507. ;        (run ("RAM:delete %s" delfile))
  508.  
  509.  
  510.         (complete 96)
  511.  
  512.         (if (= lock1 1)
  513.         (
  514.                 (set delfile ("\"%s/DATA/ALL/P1\"" default-dest))
  515.                 (run ("delete %s" delfile))
  516.                 
  517.                 (set delfile ("\"%s/Bobs/3c.war\"" default-dest))
  518.                 (run ("delete %s" delfile))
  519.  
  520.                 (set ren1file ("\"%s/Bobs/3o.war\"" default-dest))
  521.                 (set ren2file ("\"%s/Bobs/3.war\"" default-dest))
  522.                 (run ("rename %s as %s" ren1file ren2file))
  523.         )
  524.         )
  525.  
  526.         (if (= lock1 0)
  527.         (
  528.                 (set delfile ("\"%s/Bobs/3o.war\"" default-dest))
  529.                 (run ("delete %s" delfile))
  530.  
  531.                 (set ren1file ("\"%s/Bobs/3c.war\"" default-dest))
  532.                 (set ren2file ("\"%s/Bobs/3.war\"" default-dest))
  533.                 (run ("rename %s as %s" ren1file ren2file))
  534.         )
  535.         )
  536.  
  537.  
  538.         (if (= language 0)
  539.            (
  540.                 (set delfile ("\"%s/DATA/ALL/P2\"" default-dest))
  541.                 (run ("delete %s" delfile))
  542.         
  543.            )
  544.         )
  545.  
  546.          (complete 98)
  547.  
  548.          (textfile
  549.                  (dest "sys:punish")
  550.                  (append
  551.                          (cat "cd \"" default-dest "\""
  552.                               "\nexecute cp\n"
  553.                          )
  554.                  )
  555.          )
  556.  
  557. ;         (run ("ram:assign L: ram: REMOVE")
  558. ;         )
  559. ;
  560. ;         (run ("ram:assign L: sys:L")
  561. ;         )
  562.  
  563.  
  564. ;        (run ("RAM:delete RAM:lha"))
  565. ;        (run ("RAM:delete RAM:lha.key"))
  566. ;        (run ("RAM:delete RAM:rename"))
  567. ;        (run ("RAM:delete RAM:assign"))
  568.  
  569.  
  570. ; boot disk creation
  571.  
  572.         (if
  573.                 (askbool
  574.                         (prompt #hd_floppy)
  575.                         (help   #hd_floppy_help)
  576.                 )
  577.                 (
  578.                         (message #insert_disk)
  579.                     
  580.                         (working #formatting)
  581.                         (while
  582.                                 (run "format.exe >NIL: drive DF0: name CapitalBOOT noicons FFS")
  583.                                 (
  584.                                         (message #insert_disk)
  585.                                         (working #formatting)
  586.                                 )
  587.                         )
  588.                         (complete 99)
  589.                         (run "inst.exe df0: FFS")
  590.  
  591.                         (makedir "CapitalBOOT:s")
  592.  
  593.                         (textfile
  594.                                 (dest "CapitalBOOT:s/startup-sequence")
  595.                                 (append
  596.                                         (cat "cd \"" default-dest "\""
  597.                                              "\nexecute cp\n"
  598.                                         )
  599.                                 )
  600.                         )
  601.                         
  602.                         (message ("%s" #remove))
  603.                 )
  604.         )
  605.  
  606. ;        (run ("RAM:delete RAM:inst"))
  607. ;        (run ("RAM:delete RAM:format"))
  608. ;        (run ("RAM:delete RAM:delete"))
  609.